home *** CD-ROM | disk | FTP | other *** search
/ Ultra Mac Games 1 & 2 / UltraMacGames1.iso / Adventure / HyperSpace Traders / HyperSpace Traders / background_6052.txt < prev    next >
Text File  |  1989-03-08  |  9KB  |  366 lines
  1. -- background: 6052 from stack: in
  2. -- bmap block id: 6452
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Port
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 80
  10. -- high flags: 0007
  11. -- rect: left=0 top=227 right=342 bottom=510
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Port Info
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 2002
  25. -- rect: left=115 top=26 right=209 bottom=394
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: Port Text Field
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=24 top=40 right=57 bottom=83
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 2
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Sector
  48. ----- HyperTalk script -----
  49. on closeField
  50.   global currentSector
  51.   put bkgnd field id 2 into currentSector
  52. end closeField
  53.  
  54.  
  55. -- part 4 (field)
  56. -- low flags: 01
  57. -- high flags: 0000
  58. -- rect: left=5 top=84 right=101 bottom=102
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 2
  63. -- text size: 10
  64. -- style flags: 0
  65. -- line height: 13
  66. -- part name: Sector
  67. ----- HyperTalk script -----
  68. on closeField
  69.   global currentSector
  70.   put bkgnd field id 2 into currentSector
  71. end closeField
  72.  
  73.  
  74. -- part 5 (field)
  75. -- low flags: 01
  76. -- high flags: 4000
  77. -- rect: left=46 top=295 right=310 bottom=117
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 65535
  81. -- font id: 3
  82. -- text size: 10
  83. -- style flags: 0
  84. -- line height: 13
  85. -- part name: Credits
  86.  
  87.  
  88. -- part 6 (field)
  89. -- low flags: 01
  90. -- high flags: 4000
  91. -- rect: left=166 top=280 right=295 bottom=221
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 65535
  95. -- font id: 3
  96. -- text size: 10
  97. -- style flags: 0
  98. -- line height: 13
  99. -- part name: Organics
  100.  
  101.  
  102. -- part 7 (field)
  103. -- low flags: 01
  104. -- high flags: 4000
  105. -- rect: left=166 top=296 right=311 bottom=220
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 65535
  109. -- font id: 3
  110. -- text size: 10
  111. -- style flags: 0
  112. -- line height: 13
  113. -- part name: Equipment
  114.  
  115.  
  116. -- part 8 (field)
  117. -- low flags: 01
  118. -- high flags: 4000
  119. -- rect: left=321 top=279 right=294 bottom=375
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 65535
  123. -- font id: 3
  124. -- text size: 10
  125. -- style flags: 0
  126. -- line height: 13
  127. -- part name: Ore
  128.  
  129.  
  130. -- part 9 (field)
  131. -- low flags: 01
  132. -- high flags: 4000
  133. -- rect: left=321 top=296 right=311 bottom=375
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 65535
  137. -- font id: 3
  138. -- text size: 10
  139. -- style flags: 0
  140. -- line height: 13
  141. -- part name: Empty Holds
  142.  
  143.  
  144. -- part 10 (field)
  145. -- low flags: 01
  146. -- high flags: 0000
  147. -- rect: left=153 top=250 right=266 bottom=337
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 0
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: Ship's Name
  156.  
  157.  
  158. -- part 11 (field)
  159. -- low flags: 01
  160. -- high flags: 0000
  161. -- rect: left=4 top=124 right=165 bottom=104
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 0
  165. -- font id: 3
  166. -- text size: 10
  167. -- style flags: 0
  168. -- line height: 13
  169. -- part name: Buying
  170. ----- HyperTalk script -----
  171. on closeField
  172.   global currentSector
  173.   put bkgnd field id 2 into currentSector
  174. end closeField
  175.  
  176.  
  177. -- part 12 (field)
  178. -- low flags: 01
  179. -- high flags: 0000
  180. -- rect: left=4 top=182 right=236 bottom=105
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 0
  184. -- font id: 3
  185. -- text size: 10
  186. -- style flags: 0
  187. -- line height: 13
  188. -- part name: Selling
  189. ----- HyperTalk script -----
  190. on closeField
  191.   global currentSector
  192.   put bkgnd field id 2 into currentSector
  193. end closeField
  194.  
  195.  
  196. -- part 13 (field)
  197. -- low flags: 01
  198. -- high flags: 4000
  199. -- rect: left=62 top=315 right=330 bottom=117
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 65535
  203. -- font id: 3
  204. -- text size: 10
  205. -- style flags: 0
  206. -- line height: 13
  207. -- part name: Cloaking Device
  208.  
  209.  
  210. -- part 19 (field)
  211. -- low flags: 00
  212. -- high flags: 4000
  213. -- rect: left=462 top=150 right=165 bottom=501
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 0
  217. -- font id: 3
  218. -- text size: 10
  219. -- style flags: 0
  220. -- line height: 13
  221. -- part name: Number
  222.  
  223.  
  224. -- part 20 (field)
  225. -- low flags: 00
  226. -- high flags: 4000
  227. -- rect: left=418 top=185 right=201 bottom=495
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 3
  232. -- text size: 10
  233. -- style flags: 0
  234. -- line height: 13
  235. -- part name: Number
  236.  
  237.  
  238. -- part 21 (button)
  239. -- low flags: 00
  240. -- high flags: A003
  241. -- rect: left=413 top=242 right=267 bottom=502
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Leave Port
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   global currentPlayer,currentPort
  253.   set cursor to 4
  254.   lock screen -- script to install changed port inventory values:
  255.   if word 3 of the id of this card = "6144" then
  256.     repeat with x = 1 to the number of lines of bkgnd field id 1
  257.       if item 1 of line x of bkgnd field id 1 = currentPort then
  258.         if word 1 of line 1 of bkgnd field id 11 ‚↠0 then put ((word 1 of line 1 of bkgnd field id 11)+5) into item 3 of line x of bkgnd field id 1
  259.         if word 1 of line 2 of bkgnd field id 11 ‚↠0 then put ((word 1 of line 2 of bkgnd field id 11)+5) into item 4 of line x of bkgnd field id 1
  260.         if word 1 of line 3 of bkgnd field id 11 ‚↠0 then put ((word 1 of line 3 of bkgnd field id 11)+5) into item 5 of line x of bkgnd field id 1
  261.         if word 1 of line 1 of bkgnd field id 12 ‚↠0 then put ((word 1 of line 1 of bkgnd field id 12)+5) into item 6 of line x of bkgnd field id 1
  262.         if word 1 of line 2 of bkgnd field id 12 ‚↠0 then put ((word 1 of line 2 of bkgnd field id 12)+5) into item 7 of line x of bkgnd field id 1
  263.         if word 1 of line 3 of bkgnd field id 12 ‚↠0 then put ((word 1 of line 3 of bkgnd field id 12)+5) into item 8 of line x of bkgnd field id 1
  264.         exit repeat
  265.       end if
  266.     end repeat
  267.   end if
  268.   put bkgnd field id 3 into sectorID
  269.   -- script to load inventory variables:
  270.   put bkgnd field id 5 into credits
  271.   put bkgnd field id 6 into organics
  272.   put bkgnd field id 7 into equipment
  273.   put bkgnd field id 8 into ore
  274.   put bkgnd field id 9 into holds
  275.   put bkgnd field id 22 into turns
  276.   put bkgnd field id 23 into fighters
  277.   put bkgnd field id 13 into cloak
  278.   repeat with x = 2 to 17
  279.     put empty into bkgnd field x
  280.   end repeat
  281.   go card currentPlayer  -- install changed inventory variables
  282.   put credits into bkgnd field id 7
  283.   put organics into bkgnd field id 17
  284.   put equipment into bkgnd field id 18
  285.   put ore into bkgnd field id 19
  286.   put holds into bkgnd field id 20
  287.   put turns into bkgnd field id 23
  288.   put fighters into bkgnd field id 22
  289.   put cloak into bkgnd field id 36
  290.   put "Sector"&& sectorID && " - Port: " && currentPort into line 1 of bkgnd field id 21
  291.   play "spray"
  292.   unlock screen with visual effect iris close
  293.   set cursor to 1
  294. end mouseUp
  295.  
  296.  
  297.  
  298. -- part 22 (field)
  299. -- low flags: 01
  300. -- high flags: 4000
  301. -- rect: left=215 top=315 right=330 bottom=269
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 0 / 0
  304. -- text alignment: 65535
  305. -- font id: 3
  306. -- text size: 10
  307. -- style flags: 0
  308. -- line height: 13
  309. -- part name: Turns
  310.  
  311.  
  312. -- part 23 (field)
  313. -- low flags: 01
  314. -- high flags: 4000
  315. -- rect: left=321 top=315 right=330 bottom=375
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 0 / 0
  318. -- text alignment: 65535
  319. -- font id: 3
  320. -- text size: 10
  321. -- style flags: 0
  322. -- line height: 13
  323. -- part name: Fighters
  324.  
  325.  
  326. -- part 24 (field)
  327. -- low flags: 81
  328. -- high flags: 0002
  329. -- rect: left=11 top=23 right=142 bottom=344
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 0
  333. -- font id: 3
  334. -- text size: 9
  335. -- style flags: 0
  336. -- line height: 12
  337. -- part name: Home Ports Info
  338.  
  339.  
  340. -- part 25 (field)
  341. -- low flags: 81
  342. -- high flags: 0000
  343. -- rect: left=5 top=242 right=315 bottom=47
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 0
  347. -- font id: 3
  348. -- text size: 9
  349. -- style flags: 0
  350. -- line height: 12
  351. -- part name: Current Prices Field
  352.  
  353.  
  354. -- part 28 (field)
  355. -- low flags: 01
  356. -- high flags: 0000
  357. -- rect: left=115 top=213 right=231 bottom=229
  358. -- title width / last selected line: 0
  359. -- icon id / first selected line: 0 / 0
  360. -- text alignment: 65535
  361. -- font id: 0
  362. -- text size: 12
  363. -- style flags: 0
  364. -- line height: 16
  365. -- part name: 
  366.